home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / cadence.arc / VOL1NO3.ARC / TOLOWER.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-07-17  |  628 b   |  19 lines
  1. 10 'This program converts upper-case characters in the input file
  2. 20 'to lower case in the output file.
  3. 50 '
  4. 100 DEFINT A:CLS:KEY OFF
  5. 110 LOCATE 13,25:INPUT "Wordstar file to convert - ";IFN$
  6. 120 LOCATE 15,25:INPUT "Converted file name - ";OFN$
  7. 130 OPEN IFN$ FOR INPUT AS #1
  8. 140 OPEN OFN$ FOR OUTPUT AS #2
  9. 150 CLS:LOCATE 13,25:PRINT "Working on character - ";
  10. 160 WHILE NOT EOF(1)
  11. 170    A1=ASC(INPUT$(1,1))
  12. 180     IF A1<65 OR A1>90 THEN 210
  13. 190      LOCATE 13,48:PRINT CHR$(A1)
  14. 200       A1=A1+32
  15. 210    A$=CHR$(A1):PRINT #2,A$;
  16. 220    IF A1=26 THEN 999
  17. 230 WEND
  18. 999 CLOSE:CLS:KEY ON:LOCATE 13,30:PRINT "Done....":BEEP
  19.